home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -in_the_mag- / banging_the_metal / qdos / qdos4amiga1 / qldisk.mkzip < prev    next >
AmigaDOS Script File  |  2000-01-03  |  719b  |  39 lines
  1. .key opt1
  2. .def opt1 "FD0:"
  3. .bra {
  4. .ket }
  5.  
  6. FailAt 21
  7.  
  8. Echo "This script copies the contents of a"
  9. Echo "QDOS (QL) disk into an ZIP archive."
  10.  
  11. Assign >NIL: FD0: EXISTS
  12.  
  13. If WARN
  14.  Echo "Please:"
  15.  Echo "   1) Mount the QLfilesystem"
  16.  Echo "   2) Put a QL disk in DF0:"
  17.  Echo "   3) Try again."
  18.  Wait 5
  19. Else
  20.  
  21.  If EXISTS ram:QDOS4amiga3.zip
  22.   delete ram:QDOS4amiga3.zip
  23.  EndIf
  24.  
  25.  Version >NIL: CLI 37 internal
  26.  If NOT WARN
  27.   List >t:qdos{$$} ALL LFORMAT "ZIP -j -9 -N -b ram: ram:QDOS4amiga3.zip *"{opt1}%n*"" {opt1}
  28.  Else
  29.   List >t:qdos{$$} LFORMAT "ZIP -j -9 -N -b ram: ram:QDOS4amiga3.zip *"{opt1}%t*"" {opt1}
  30.  EndIf
  31.  
  32.  Copy QLdisk.mkLHA.info ram:QDOS4amiga3.zip.info
  33.  execute t:qdos{$$}
  34.  delete t:qdos{$$}
  35.  
  36. EndIf
  37.  
  38. FailAt 10
  39.